home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Periodicals / develop / develop 6 code / Threads / Threads Package 2.0d17 / FuturesIntf.p < prev    next >
Encoding:
Text File  |  1991-10-10  |  1.5 KB  |  57 lines  |  [TEXT/MPS ]
  1. {     
  2.     Note: I didn't have a chance to test this file before I had to deliver it. 
  3.     Let me know how it works if you try it. 
  4.     --Dave Johnson
  5. }
  6.  
  7. unit FuturesIntf;
  8.  
  9. uses AppleEvents, Threads;
  10.  
  11. interface
  12.  
  13. const
  14.  
  15.     kFuturesNotInitedErr = -2707;
  16.  
  17.  
  18. type
  19.  
  20.     FuturesProc = ProcPtr;
  21.  
  22.     FuturesProcTbl = record
  23.         fThreadBlock: FuturesProc;
  24.         fThreadUnblock: FuturesProc;
  25.     end;
  26.  
  27.  
  28.  
  29. { ----------------------------------------------------------- }
  30.  
  31. { Futures Routines }
  32.  
  33.     function ThreadBlock(var message: AppleEvent): OSErr;
  34.     function ThreadUnblock(var message: AppleEvent): OSErr;
  35.     function InitFutures: OSErr;
  36.     function BlockUntilReal(var message: AppleEvent): OSErr;
  37.     function IsFuture(var message: AppleEvent): boolean;
  38.     function Ask(var question, answer: AppleEvent): OSErr;
  39.     function DisposeFuture(var future: AppleEvent): OSErr;
  40.     function GetFutureSemaphore(var future: AppleEvent): SemaphoreHandle;
  41.  
  42. { ----------------------------------------------------------- }
  43.  
  44. implementation
  45.  
  46. { Futures Routines }
  47.  
  48.     function ThreadBlock(var message: AppleEvent): OSErr; external;
  49.     function ThreadUnblock(var message: AppleEvent): OSErr; external;
  50.     function InitFutures: OSErr; external;
  51.     function BlockUntilReal(var message: AppleEvent): OSErr; external;
  52.     function IsFuture(var message: AppleEvent): boolean; external;
  53.     function Ask(var question, answer: AppleEvent): OSErr; external;
  54.     function DisposeFuture(var future: AppleEvent): OSErr; external;
  55.     function GetFutureSemaphore(var future: AppleEvent): SemaphoreHandle; external;
  56.     
  57. end.